x <- matrix(rnorm(500 * 500), ncol = 500)
system.time( for (i in 1:100) lower_tri(x) )
system.time( for (i in 1:100) lower_tri(x,TRUE) )
system.time( for (i in 1:100) upper_tri(x) )
system.time( for (i in 1:100) upper_tri(x,TRUE) )
Run the code above in your browser using DataLab